www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/User/C_quan.asp

    

<div align="center">
	<table border="0" width="733" height="335" bgcolor="#EFEFEF" cellpadding="0" cellspacing="1">
		<tr>
			<td height="38" width="733" bgcolor="#FFFFFF" colspan="2">
			<p align="center"><b>创 建 圈 子</b></td>
		</tr>
		<form method="POST" action="Deal_user.asp?Action=cquan " name="thisform">
		<tr>
			<td height="40" width="185" bgcolor="#FFFFFF" align="right">圈子名称：</td>
			<td height="40" width="545" bgcolor="#FFFFFF">&nbsp;<input type="text" name="qname" size="42"> 
			*</td>
		</tr>
		<tr>
			<td height="40" width="185" bgcolor="#FFFFFF" align="right">圈子类别：</td>
			<td height="40" width="545" bgcolor="#FFFFFF">&nbsp;<select name="leibie">
		  <% set crs=server.createobject("adodb.recordset")
		  csql="select * from Quan_type order by id"
		  crs.open csql,conn,1,1
		  do while not crs.eof
		  %>
	      <option value="<%=crs("name")%>"><%=crs("name")%></option>
		  <% crs.movenext
		     loop
			 crs.close
			 set crs=nothing
		  %>
	      </select> (必选)</td>
		</tr>
<tr>
			<td bgcolor="#FFFFFF" width="185" align="right" height="30">所属地区：</td>
			<td bgcolor="#FFFFFF" width="513">&nbsp;<%

set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from Gu_qu"
rsclass.open sqlclass,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rsclass.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rsclass("class2"))%>","<%= trim(rsclass("class1"))%>","<%= trim(rsclass("id"))%>");
        <%
        count = count + 1
        rsclass.movenext
        loop
        rsclass.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.thisform.class2.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.thisform.class2.options[document.thisform.class2.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</SCRIPT><%
sqlclass = "select * from Gu_shi"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加分类。"
response.end
else
%><SELECT name="class1" onChange="changelocation(document.thisform.class1.options[document.thisform.class1.selectedIndex].value)" size="1">
 <OPTION selected value="">地级市</OPTION>
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(left(rsclass("class1"),5))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT>
<SELECT name="class2">
<OPTION selected value="">区县</OPTION>
</SELECT> 
	  <font color="red">*</font>
			</td>
		</tr>
		
		<tr>
			<td height="142" width="185" bgcolor="#FFFFFF" align="right">圈子简介：</td>
			<td height="142" width="545" bgcolor="#FFFFFF">&nbsp;<textarea rows="10" name="beizhu" cols="55"></textarea> 
			*</td>
		</tr>
		<tr>
			<td height="37" width="185" bgcolor="#FFFFFF" align="right">圈子创建人：</td>
			<td height="37" width="545" bgcolor="#FFFFFF">&nbsp;<input type="text" name="username" size="14" value="<%=username%>" readonly> 
			(不可修改)</td>
		</tr>
		<tr>
			<td height="37" width="185" bgcolor="#FFFFFF" align="right">圈子LOGO：</td>
			<td height="37" width="545" bgcolor="#FFFFFF">&nbsp;<input type="text" name="pic" size="45" readonly> 
			(图片要求：JPG/GIF &lt;500K)</td>
		</tr>
		<tr>
			<td height="35" width="185" bgcolor="#FFFFFF" align="right">上传：</td>
			<td height="35" width="545" bgcolor="#FFFFFF">&nbsp;<%if rshy("uservip")=1 then%><iframe frameborder=0 width=290 height=25 scrolling=no src="Upload.asp?action=AD_Pic"></iframe><%else%><br>&nbsp;<font color="#FF0000">非本站VIP会员不能上传图片</font><%end if%></td>
		</tr>
		<tr>
			<td height="40" width="730" bgcolor="#FFFFFF" align="right" colspan="2">
			<p align="center"><input type="submit" value="创建圈子" name="B1"></td>
		</tr></form>
		</table>
</div>